DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


**t [LE**1D**DBGCALL 


DDDDDDDD BBBBBBBB GGGGGGGG ccccccce AAAAAA LL LL 

DDDDDDDD BBBBBBBB GGGGGGGG cccccccc AAAAAA LL LL 

DD DD BB BB GG cc AA AA LL LL 

DD DD BB BB GG cc AA AA LL LL 

DD DD 8B BB GG cc AA AA LL LL 

dD DD 8B GG cc AA AA LL LL 

dD DD BBBBBBBB GG cc AA AA LL LL 

DD DD B8BBEB8B GG cc AA AA LL LL 

DD DD 6B BB GG GGGGGG CC AAAAAAAAAA LL LL 

dD DD BB BB GG GGGGGG CC AAAAAAAAAA LL LL 

DD DD BB BB GG GG CC AA AA LL LL eeee 
DD DD BB BB GG GG CC AB AA LL LL cece 
DDDDDDDD BBBBBBBB GGGGGG CCCCCCCC AA AA LLLLLLELLLE LLELELLLLLL cove 
DDDDDDDD BBBBBBBB GGGGGG Cccccccc AA AA LLLLLLLLLE LLECLLLLELLL ceee 
LL T1113] SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL T1111] SSSSSSSS 

LLLLELLLLL III] SSSSSSSS 
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1 
DBGCA 13. $ep-1984 23:55:45 AX-11 Bliss-32 V4.0-742 
vO4=000 127368-1$8e 13:18:40 DEBUG.SR RCD BGCALL.B32;1 


1 0001 8 MODULE DBGCALL(IDENT = ‘Vv04-000') = 
§ a4 
0005 1 BEGIN 
4 0004 1 
5 0005 1! 
§ Bone SRS CTS C TCSII CTT E TIT TTT ITIL TTI TIC LIT ICICI ITT ITIL TIT T ITT TLi Titi iitiiti ty 
1! * 
8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
e 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
19 Baie ! ” ALL RIGHTS RESERVED. * 
:* * 
1 Bot¢ 1 !* THIS SOFTWARE fs FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICEN SE AND WITH THE * 
14 0014 1 !* INCLUSION OF THE ABOVE fo gpy NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
16 Bog 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
+ id EA : TRANSFERRED. * 
'® * 
19 0019 1 !® ine gt te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
20 0020 1 !# SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$3 Ons) ; 7? CORPORATION. * 
‘® ® 
23 0098 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$¢ bose : .* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
‘® ® 
26 0026 1 !* * 
$e 534 1 Lee RAR RE RAAT EAEEERERE 
0 1! 
29 534 1 ! WRITTEN BY 
30 0030 1! Ping Sager Oct. 1982 
31 0031 1! 
32 O86 1 ! MODULE FUNCTION 
33 0035 1! This module contains the parse and OuecUt Ten meds to support the 
34 0034 1! CALL command. Parsing is done by means of ATN's. A emnene execution 
35 0035 1! tree is constructed during Phe The ¢ rai A is ppeced as input to 
36 0036 1! the command execution network e CALL command allows the user to 
37 0037 1! call a ouprout tee from DEBUG, have it execute, and then view its 
38 0038 1! return value. The CALL command is Language independent, and does not 
39 0039 1! understand the argument tapass og conventions used by the various 
40 0040 1! languages. Hence the % ZVAL, and ZDESC cqnatructs are 
41 0041 1! are provided by DEBUG. ZADOR stides the user to spec He an address 
42 0042 1! expression and pass in the value of that expression as the per quater, 
43 0045 1! ZREF allows the user to specify a language expresion and pas 
44 0044 1! the address of the mpress "se result (pass by reference), qVAL allows 
45 0045 1! the user to specify a Language expresion and pass in the “value of the 
46 pose 1! eoprene ten as an lneoslece parameter, and ZDESCR allows the user to 
47 0047 1! specify a Language ouoress ise and pass in the expression result by 
48 0048 1! VAX standard descriptor. ADDR, ZREF, ZVAL, and ZDESCP are treated 
49 0049 1! as keywords (not ab al es so the user must enter them with 
50 0050 1! those exact spellings. 
51 0051 1! 
26 $03¢ 1 
27 O17 : REQUIRE ‘SRC$:DBGPROLOG.REQ'; 
55 188 1 FORWARD ROUTINE 
56 4 44 1 DBGSNEXECUTE_CALL, ' Command execution network 
57 0190 1 DBGSNPARSE _CALL; ! Parse network 


| 1 
Bec VESEISH WEE 


i: 0191 1 EXTERNAL ROUTINE 
: 60 0196 1 DBGSGET_MEMORY, 
> 61 193 1 DBGSGET~TEMPMEM i 
= © 0194 1 DBGSMAKE_VMS_DESC, i 
ig 019% | DBGSNCOPY_DESC 
is 65 0197 1 DBGSNMATCA, 
t= 66 0198 1 i 
: 67 0199 1 DBGSNNEXT_WORD, i 
(3 68 9200 1 i 
: 69 0201 1 DBGSNPARSE_ADDRESS i 
: 70 0 0¢ 1 DBGSNPARSE EXPRESSION, 
. 0203 1 DBGSNSAVE_STRING, 
; PR 0204 1 DBGSPRIM_TO_ADDR: i 
: «73 0205 1 i 
ae 0206 1 i 
=U ae 0207 1 
: 7% 0208 1 EXTERNAL 
>: i 0209 1 DBGSGB_TAKE_CMD: BYTE, 
: 78 0210 1 DBGSPSEUDO PROG, i 
: 79 0211 1 DBGSRUNFRAME: BLOCKC,BYTE], i 
; 80 0212 1 DBGSGB_UNHANDLED_EXC: VECTORC10,BYTE) 
a 0213 1 
: 82 0214 1 
fer as 0215 1 GLOBAL 
: (84 0216 1 DBGSGL_CALL_CONTEXT: INITIAL(O), | 
; 85 0217 1 DBGSGB~CALL~NORMAL_RET: BYTE 
; 86 0218 1 INITIAL(O); 
: 87 0219 1 
: 88 0220 1 i 
: 89 0221 1 i 
: 90 022¢ 1 i 
oe 0223 1 i 
: 92 0224 1 i 
: 93 0225 1 i 
> 9 0226 1 i 
: 95 0227 1 i 
: 9% 0228 1 
; 97 0229 1 OWN 
: 98 0230 1 SAVE_CALL_CONTEXT: INITIAL(O); 
| 
| 
| 
| 
| 
| 


5 AX-11 B § 32 
0 DEBUG.S GC 


' Get a memory block 
' Get temporary memory 
! Convert Primary Descriptor to 


VAX standard descriptor 


i Copies primary and value descriptor 
' Counted string matching routine 


or pa 
Isolate next word of input for 
syntax errors 


! Address Expression Parser 

' Language Expression Parser 

' Store a ASCIC string from input buffer 
' Convert Primary Descriptor to 


Value Descriptor containing 
address of descriptor 


Flag that says take further commands 
Address of phony user code 

Current user runframe context 

;! Flags set to TRUE on an unhandled 
exception. 


Used for Bound Procedure 


' Normal return from CALL command flag 


used to suppress regeneration 
of screen dis a on normal 
return from the CALL command 


i This flag can have these values: 
0 = Not 


= n a CALL command 

1 = In a CALL command, but call 
has not returned normally 

2 = CALL command just returned 

normally without intervening 

breaks or exceptions 


| 
e 1 
“DBGCAL 15-Sep-1984 23:55:45 VAX=11 Bliss-32 v4.0-7% 2 
“VO6=-006 Fee eh rie ree aR TS Le ed mings 
) = 


! Recover the flag that says whether we are to enable ASTs during 
: the call. 


3 190 8 1 } GLOBAL ROUTINE DBGSNEXECUTE_CALL(VERB_NODE, MESSAGE_VECT 
lj 108 058§ | i FUNCTION 

; W 0234 1! This routine accepts a command execution tree as input and performs the 
3 1046 0 22 1! semantic actions associated with the CALL command. This routine 

a 13? 8 $ : builds a standard VAX call frame for the user-specified called-address. 
13 107 0 a 1! Adverb Node in the command execution tree specifies the called-address. 
13 108 $Si5 fe: The arguments to the called-address are found in the Noun Nodes in the 
: 109 0240 1! command execution tree. The arguments are counted, and if any exist, 
: 110 0241 1! @ standard VAX call frame argument List is constructed. The the 

s 111 8 m4] 1! called-address is called via a CALLG instruction, and the returned 

: ‘Ng SSez : value from the CALLG is displayed. 

; 414 0245 1 | INPUTS 

3 415 0246 1! VERB_NODE - A Longword containing the address of the verb 

; 118 te4 : node of the command execution tree. (CALL) 

; 118 0249 1} MESSAGE _VECT - The address of a longword to contain the address 

: 3 BSe9 : of a standard message argument vector on errors. 

: 121 Ode 1 i QUTPUTS 

: \$¢ 8S27 : } STSSK_SUCCESS (1) - Success. The parsed command was executed. 

; iss OSee } STSSK_SEVERE (4) - Failure. The command could not be executed. 
: 126 ae 

s ve 0258 BEGIN 

; 128 0259 

3 94 0260 p 

; i ' ps6! VERB_NODE: REF DBGSVERB_NODE; =! Pointer to the Verb Node 

; 13¢ $568 : LOCAL 

2 0264 ADVERB_NODE: REF DBGSADVERB NODE, : Pointer to the Adverb Node 

> (134 0265 ARG_LIST_PTR: REF VECTORC,LONGJ,! Pointer to argument list 

3 135 0266 AST_FLAG, ' TRUE for CALL/AST 

3; «(136 0267 BUF: REF VECTORC,BYTE) ! Pointer to ASCIC string 

3 ETA osee CALARG_PERMEM: REF VEC TORE LONG); ! wetater Se a vector of memory useage 
3 : ointers 

; 130 0270 CALL_ADDRESS, ! User specified Call-Address 

: 140 0271 2 P ! Index to the argument 

3 (141 os7¢ NOUN_NODE: REF DBGSNOUN_NODE, _! Pointer to the Noun Node 

> 142 027 SAVED_RUNFRAME: REF BLOCKL BYTE],! Pointer to saved runframe context 

: 16? osie VALUE-DESC: REF DBGSVALDESC; ! Pointer to Value Descriptor 

> 145 0276 

3: 6146 027 LITERAL 

; otf 0979 STOCK_USER_PSL = %X‘°03C00000'; ! Standard user PSL value 

: 18 0581 BUTE ROBER 

> 151 F 

3 13¢ $588 

; 6586 

: | 33 0586 

: 156 0589 
| 
a 
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AST_FLAG = .VERB_NODECDBGS$B_VERB_COMPOSITE); 


/ pecover the routine address fo call. If the edgress is given by a 
! Primary Descriptor, convert it to a Value Descriptor and get the 
address of the routine to call from that descriptor. 


ADVERB_NODE = .VERB NODE LPBGSL VERB_ADVERB PIRI; 
VALUE _BESC = .ADVERB_NODECDBG G -ADVERS VALOE); 
1 gi LUE .DESCCDBGSE_DHOR. TYPE EQL DBGSK_PRIMARY_DESC 


AX-11 Ol igsn3e V4.0-742 
DEBUG. SRC JDBGCALL .832;1 


ou 


BEGIN 

te ww DBGSPRIM_TO_ADDR(.VALUE_DESC, DSCSK_DTYPE_L, VALUE_DESC) 
SDBG_ERROR('DBGCALL\DBGSNEXECUTE_CALL 10'); 

 pgmemeiais = ..VALUE_DESCCOBGSL_VALUE_POINTER); 


: If the address to call is given by a Value Descriptor in the first place, 
get it from that descriptor right away. 


ELSE 
IF sVALUE_DESCCDBGSB_DHDR_ TYPE] NEQ DBGS$K_V_VALUE_DESC 
$DBG_ERROR("DBGCALL\DBGSNEXECUTE_CALL 20'); 
CALL _ADDRESS = .VALUE_DESCCDBG$L_VALUE_POINTER); 


} Check for read access to the user specified call address. 
if NOT PROBER(ZREF(O), ZREF(1), .CALL_ADDRESS) 
SIGNAL(DBG$_BADSTARTPC, 1, .CALL_ADDRESS); 


Allocate spaces for Argument List. 

ARG_LIST_PTR = DBGSGET_MEMORY(.ADVERB_NODECDBG$B_ADVERB_LITERAL] ¢ 1); 
CALARG PERMEM = 0; 

If . ADVERB_NODECDBG$B_ADVERB_LITERAL] NEQ 0 


CALARG_PERMEM = DBGSGET_MEMORY(.ADVERB_NODECDBGSB_ADVERB_LITERAL)); 


0: 
LIST_PTRC.1] = .ADVERB_NODECDBG$B_ADVERB_LITERAL); 
NOUR NODE = gVERB_NODECDBGSL VERB_OBJECT PIRI; 


BEGIN 
IF .NOUN_NODE EQL 0 THEN EXITLOOP; 
VALUE_DESC = .NOUN_NODECDBG$L_NOUN_VALUE); 
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H 1 
15-Sep-1984 23:55:45 AX-11 Bligs-32 V4.0-74 P 
14-Sep-19 4 13:48:40 DEBUG. SRCIDBGCALL .832; — (33 


pur = :NOUNNODECOBGSL NOUN, VALUE2I; 
SELECTONE TRUE OF 
PEHSEOL(S, BUFC1], 5, UPLIT BYTE('XADDR'))): 


Freep ee ESC LOREES_DUOR TYPE EQL DBGSK_PRIMARY_DESC 


BEGIN 

IF NOT DBGSPRIM_TO_ADDR(.VALUE_DESC, DSCSK_DTYPE_L, VALUE_DESC) 
SDBG_ERROR('DBGCALL\DBGNEXECUTE_CALL, prim to addr failed’); 

SAS LIST PTR = ..VALUE_DESCCDBGSL_VALUE_POINTER]; 


ELSE 
BEGIN 
Fags, UE DESCLODSSS_DHOR_ TYPES EQL DBGSK_V_VALUE_DESC 


BEGIN 
tah Mhlataehe = .VALUE_DESCCDBGS$L_VALUE_POINTER]; 


ELSE 
Fee ewHRROR{DOSCALL \OOSSNENECUTE CALL, invalid addr. desc.'); 


END; 
END; 
veatag +2 th BUFC1], 6, UPLIT BYTE('XDESCR'))]: 
IF .VALUE_DESCCOBG$B_DHDR_TYPE] EQL DBGSK_V_VALUE_DESC OR 
gVALUS DESC DBG$B_DHDR_TYPE) EQL DBGS$K_VALUE_DESC 


BEGIN 
DBGSNCOPY_DESC(.VALUE_DESC, VALUE_DESC); 
ARG_LIST_PTRL.1) = VACUE_DESCCDBGSA_VALUE_VMSDESC); 
CALARG_PERMERC - 1) = TVALUE_DESC? 


TE yBG_ERROR(DBGCALL \DBGSNEXECUTE invalid val. desc."); 
END; 
CCHSEQL(4, BUFCIJ, 4, UPLIT BYTE(*ZREF*))): 
IF _ .VALUE_DESCCOBGS$B_DHDR_TYPE] EQL DBGSK_V_VALUE_DESC 
ARG_LIST_PTRC.1] = .VALUE_DESCCDBGS$L_VALUE_POINTER] 


ELS 
IF ,VALUE_DESCCDBGSBDHDR_TYPE] EQL DBGSK, VALUE DESC 


r — - a — ees —CS ee — 


| 1 
“vOe=006 12Ss0c1986 GHSGESAE  YABGOE Stlsga¥2yG- 83049 ee 


' Save the current run frame context. Keep the current register 
! contents, set user PC to the special routine DBGSPSEUDO_PROG 
i im DBGSTART that will call the user-specified call-addreéss, 


3 271 403 BEGIN 

: 27 40 DBGSNCOPY_DESC(,VALUE_DESC, VALUE_DESC); 

: 27 404 ARG_LIST_PTRL.1) = VALUE bE SCCDBGSL_VALUE_POINTER); 
> 27% 405 CALARG_PERMEML.1 - i] = .QALUE_DESC; 

$275 9406 END 
I: 76 40 

277 0408 4 ELSE 
3 8 0409 4 $DBG_ERROR("DBGCALL\DBGSNEXECUTE_CALL, invalid val. desc’); 
(t 280 0411 END; 

> 281 0412 

; 8 0413 : CCHSEQL(4, BUFCIJ, 4, UPLIT BYTE(*%VAL"))2: 

> 284 0415 4 IF .VALUE_DESCCDBG$B_DHDR_TYPE] EQL DBGSK_VALUE_DESC 

: 285 041g 4 THEN 

: 286 0417 5 BEG! 

: 287 0418 5 ARG_LIST_PTRC.1] = ..VALUE_DESCCDBGS$L_VALUE_POINTER); 

; 288 0419 § IF [VALUE_DESC DBGSB_VALUE-DTYPE] EQL~DSCS$K-DTYPE_V OR 

: 289 0420 5 . VALUE DESCCOBG$B_VALUE_DTYPE) EQL DSCSK-DTYPE-VU 

: 290 0421 § THE 

; 291 0428 6 BEGIN 

; 398 04 ; 6 LF . VALUE_DESCCDBG$W_VALUE_LENGTH] GTR 32 ! bits 

: 294 0425 6 SIGNAL (DBG$_SIZETRUNC); 

> 295 0426 6 D 

: 296 0427 6 

: 297 0428 5 LSE 

: 298 0429 5 IF .VALUE_DESCCOBG$B_VALUE_DTYPE] EQL DSCS$K_DTYPE_P 
; 299 0430 § THEN 

: 300 0431 6 BEGIN 

; 301 0432 6 IF VALUE _DESCCDBGSU_VALUE LENGTH] GTR 8 ! digits 
; 36 0434 6 SIGNAL (DBG$_SIZETRUNC) ; 

; 304 0435 6 D 

: 305 0436 6 

: 306 0437 5 ELSE 

: 307 0438 5 IF .VALUE_DESCCDBG$W_VALUE_LENGTH] GTR 4 ! bytes 
: 308 0439 5 THEN 

; 309 0440 5 SIGNAL (DBG$_SIZETRUNC); 

; 310 0441 5 

: 311 0442 5 END 

: 512 0443 5 

> 31 0444 4% ELSE 

; 315 0445 4 $DBG_ERROR(*DBGCALL\DBGSNEXECUTE_CALL, invalid val. desc"); 
: 316 044 END; 

: 317 0448 

: 318 044 TES; 

> 319 9450 

: 20 4 NOUN_NODE = .NOUN_NODECDBGSL_NOUN_LINK); 
E $$ END; ! End of WHILE constructing argument List. 

i 354 
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1 
13-5e -1984 23:55:45 AX-11 Bliss-32 V4.0-74 
12-80-13be 93:33:03 DEBUG.SR RCVOBGEALL (B3044 
} and clear all flags. 


SayeD RUNFRAME = DBGSGET 


E NA Hy RUNFR_LEN + 3) / ZUPVAL); 
SMOVE (DBGSK_RUNFR LEN. GSR 
SL_NEXT 
R 
R- 


RAMECO,0,0,0), .SAVED_RUNFRAMES; 
= SAVED RUNF RARE ; 

SEUBO_ PROG 
J. as ttts EUSER ite 


FILL( 

DBGSRUNFRAMECDBGSK_RUNFR_LEN,0,0 05. = DBGSRUNFRAMECDBGS$W_RUN_STATJ, 
CHSPTR«DBGSRUNFRAMEL $0_RUN_STATI)) 

IF cASTFLAG 


ME 
“DB 

LINK 
BGSRUN DBGSL-USER-PC) = 
CHSFILL(O, DBGSL -USER_PSL 
UNF 
DBG 


st $ 
pee st SAVE “Ftbs = ARG PERMEM 


DBGSRUNF RAME 
DBGSL-USER-R1) = SAVE take Pe CONTEXT: 


DBGSRUNF RAME 


! Also “‘push"* the stack of Ra. saying whether an unhandled exception 
' has been encountered. 1 tore wrens is that we have a byte 

' vector called DBGS$GB UNHANDED if a serious error gets to 

' our final handler shen epoeece. <Unwnbt eb EXCCO] gets set to 1 

! in DBGSTART. In D DBGST byte is ree when we see a 

' STEP or GO, and an Salome tenes s signalled 

! The mg complication is that we need to stack these flags 

: - This is what we do here. This code assumes we will 

! not get calls more than 10 levels deep. 


DECR I 4~ yf zt 


$GB NHANDLED opact. 93 -1) = ,DBGSGB_UNHANDLED_EXCC.1I-1); 
DBGS$GB SUNHANDLED. Excl 


! Set eg saying that we are leaving DEBUG through a CALL command, turn 
: off taking commands from the user, and return cuceeen tulle. 
DBGSGB_ oat -NORMAL Rete 1; 


DBG$GB_TAKE-CMD = FALS 
oe “STSSR SUCCESS; 


IDENT \vO4-0O0\ 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


4 4C 41 43 47 $8 4G if Q0000 P.AAA: .ASCII <28>\DBGCALL\<92>\DBGSNEXECUTE_CALL 10\ 
45 SF 45 54 55 435 45 ; OOF 
ts of ‘} $7 ef 4 rf 38 Bae P.AAB: .ASCII <28>\DBGCALL\<92>\DBGSNEXECUTE_CALL 20\ 
3 44 44 41 a8 P.AAC: .ASCII \ZADDR\ 
rt ts $} ig ¢/ $¢ tf p bit P.AAD: .ASCII \=DBGCALL\<92>\DBGNEXECUTE_CALL. prim to\ 
6F 32 re 68 05D 
61 66 20 72 64 64 61 20 061 eASCII \ addr failed\ 
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a 
15-Sep-1984 23:55:45 AX-11 Bliss-32 V4.0-7 
14- =300 138% ; :16:40 DEBUG. SRC BBGCALL 1032; 
42 44 D P.AAE: ASCII \ 
git ah Baie 
6C $i 6 O88 
61 0 64 F «ASCII \d addr. desc.\ 
45 44 3 09¢ P.AAF: ASCII \%DESCR 
4g 44 OA2 P.AAG: . ASCII \'DBGCA 
43 45 58 00081 
6¢ 61 76 000C0 
6 $8 2 pee eASCII \ desc.\ 
45 52 OOCA P.AAH: ASCII \%REF 
4¢ 44 ¢ OOCE P.AAI: . ASCII 
43 45 9900 
$¢ 1 76 OO0EC 
6 20 64 OQ00FO eASCII \d val. desc\ 
41 56 25 OOOFB P.AAJ: ASCII 
4g 44 ¢ OOFF P.AAK: .ASCII 
43 45 010€ 
6C 61 76 00110 
76 20 64 00121 «ASCII \d val. desc\ 
.PSECT DBGSOWN,NOEXE, PIC,2 
00000000 00000 SAVE_CALL_CONTEXT: 
-CONG O 
-PSECT DBGSGLOBAL,NOEXE, 
00000000 00000 DBGSGL_CALL CONTEXT: : 
00 00004 DBGS$GB_CALL_NORMAL_RET:: 
-BYTE 0 
-EXTRN DBGSGET_MEMORY, DBGSGET_TEMPMEM 
[EXTRN DBGSMAKE_VMS_DES 
-EXTRN DBGSNCOPY_DESC, 
-EXTRN DBGSNNEXT-WORD 
SEXTRN DBGSNPARSE_EXPRES 
-EXTRN DBGSNSAVE_STRING 
-EXTRN DBGSPRIM_TO_ADDR 
EXTRN DBG$GB_TAK KES D 
-EXTRN DBGSPSEUDO_PROG 
-EXTRN DBGSRUNFRAME, DBG$GB_UNHANDLED_EXC 
-PSECT DBGSCODE,NOWRT, SHR, 
OFFC 00000 ENTRY 
04 AC 00 00002 MOVL VERS uy 
1 A3 9A 00006 MOVZBL 1(R * tt} FLAG 
4 A3 DO OOO0A MOVL  4(R3); ADVERB NODE 
4 A Dp O00E PUSHL 4 (ADVERB NODES 
6 1 VL ALUE DESC R2 
02 Ae 91 0 14 CMPB (R2)> #1ef 
et 12 00019 NEQ $ 
E DD 00018 PUSHL SP 
g DD 00010 PUSHL a8 
2 DD O001F PUSHL R 


1 


\ZREF\ 
\ DBGCALL\<92>\DBGSNEXECUTE_CALL, invali\ 


\ZVAL 
\,DBGCALL\<92>\DBGSNEXECUTE_CALL, invali\ 


RBA RO. CALL, Save R2,R3,R4,R5,R6,R7,- 


«DBGCALL\<92>\DBGSNEXECUTE_CALL, invali\ 


LL\<92>\DBGSNEXECUTE invalid val.\ 


PIC,2 


PIC,0 


DBGSNMATC 
DBESNPARSE ADDRESS 
SION 


———— a a - 


1 
bes Sep- 5:4 Ax-11 Bliss-32 V4.0-7 
14-Sep-1 198 $337 3:43 DEBUG. SRCJDBGCALL. B30; 
000000006 93 FB } CALLS 3, DBGSPRIM_ TO_ADDR 
00000000" €éF SF PUSHAB : "pak 
1 DD PUSHL 
00028362 8F DD PUSHL 64706 
000000006 00 3 F 9 CALLS ay, LIBSSIGNA 
0 6 D 40 1$: MOVL VALUE DESC 
A 18 : og 4 MOVL : (RO), CALL ADDRESS 
83 «BF 02 a 91 0049 2$: CMPB g(R2). #131 
1§ 13 af BEOQL 
00000000' EF 9F 005 PUSHAB P.AAB 
1 DD 6 PUSHL #1 
00028362 8F DD 0005 PUSHL #164 
000000006 00 FB 0055 CALLS #3, na) Fatt AL 
SA 18 A2 00 00065 3$: OVL 24(R2), CALL_ADDRESS 
6A 01 0 o¢ 0069 4$: PROBER #0, #1, (CALC_ADDRESS) 
11 12 00060 NEQ 5$ 
5A DD 0006F PUSHL CALL_ADDRESS 
01 DD 00071 PUSHL #1 
000281E0 8F DD 00073 PUSHL #164320 
000000006 00 03 FB 00079 CALLS #3, LIBSSIGNAL 
7E 65 9A 69080 5$: MOVZ2BL (ADVERB_NODE), -(SP) 
6— D6 0008 INCL (SP 
000000006 00 07 FB 00085 CALLS #1, DBGSGET_MEMORY 
59 50 pO 0008C MOVL LIST PTR 
58 04 0008F CLRL CALAR 6 PERMER 
65 95 00091 TSTB CADVERS NODE) 
0D 13 00093 BEQL 
7E 65 9A 00095 MOVZBL (ovens NODE) -(SP) 
000000006 00 01 FB 00098 CALLS SGET MEMORY 
58 50 DO 0009F MOVL RO, atetts TDERMER 
54 D4 OOOA2 68: CLRL so 
6944 65 9A 000A4 MOVZBL (ADV yERB NODE) , (ARG_LIST_PTRCIJ 
57 08 A3 DO 000A8 MOVL (R3), ROUN_NODE 
03 12 OOOAC 7$ BNEQ $ 
0164 31 OOOAE BRW 3$ 
6E 67 DO 000B1 8s MOVL (NOUN_NODE), VALUE_DESC 
55 0c a7 00 00084 MOVL = 12¢ NOON _NODE), BUF 
34 D6 00088 INCL I 
6 D4 OOOBA CLAL Ré 
00000000° EF 01 AS 5 ¢9 008 CMPC3 #5, 1(BUF), P.AAC 
2 12 000C¢ NEQ 9$ 
6 06 00¢ INCL = R6 
01 6 D1 000C9 9S: CMPL Rg, A #1 
4F 3 pace BNEQ 13$ 
52 6f DO OOOCE MOVL VAL ALE. DESC, R2 
79 «BF 02 A2 91 00001 CMPB eck wal 
ef 12 O06 BNEQ 
DD 000D PUSHL SP 
Q DD OOODA PUSHL # 
DD 000DC PUSHL R 
000000006 99 Q FB D CALLS #3, + DBGSPRIM_ TO_ADDR 
3 E BLBS = RO 
00000000" EF SF OO0E PUSHAB P hap 
1 0D 00 FE PUSHL # 
00028362 8F DD O00F PUSHL #164706 


sess gcos 
Reese Ree 
ooOvVrs= WOOD 


er 


Re 
| 000000006 
| oi 
83 BF 
6944 


00000000" EF 01 AS 


01 
00000083 8F 00 «BE 08 
0000007A 8F 00 BE 08 


000000006 % 
FC A844 


6944 


50 

83 BF 
6944 

7A sOBF 


000000006 98 
6944 
FC A844 


90000000" EF 


50 
7A OBF 


6944 
01 


22 


| 

| 

| 

00000000° EF 
| 

| 20 
| 
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ye } 
ee 
ow 
owvo— 
vo0wom 
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ono 
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WP SMLO OF UN SO "WMO EMO POY NDIOO 
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PVVIMNM SPM MOOOMOWOSOVE SS MONMNNVWOMw 
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VQOOooowwww>r 
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= WON ON) 2 8 OCOD BN SON 2 ON FH BOS DWIONOWON ANNO On COW 
SOODOOCOCOOODDOOCOOSCOOSCOOOOOOOCOOCOOOOOCOOOCOOOCOOOCOOOOCOOOOOOOOO 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSOSSOSCSOOSOSSOOOOSOOOOOOSOOOOOOO 
cc ce ec cc ce ce ce ce ce ee ce ee ce ce ee ee ce me ec ce ee ce ce ce ee ee ee ee ee ed ed ad od 


—POPFOPOUWPOMNFEVIMNEUiS OOCO—YPVNPoO 
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4 23:55:45 AX-11 Bliss-32 V4.0-74 
4 ( 16:40 DEBUG. SRCIDBGCALL .B32: 
CALLS #3, L IB$S1GNA 

MOVL vALY DESC, R 

MOVL 32 (RO), (ARG_LIST_PTR)CII 

BRB 19$ 

CMPB @{R2), #131 

BNEQ 2$ 

MOVL e4(R2), (ARG_LIST_PTR)CIJ 

BRB 9$ 

PUSHAB P.AAE 

RB 17$ 

CLRL_ R6 

CMPC3 #6, 1(BUF), P.AAF 

BNEQ 14$ 

INCL = R6 

CMPL sO, #1 

BNEG 18$ 

CMPZ2V #16, #8, @VALUE_DESC, #131 
EQL ~=s«éd1:5$ 

CMPZV #16, #8, @VALUE_DESC, #122 
NEQ 16$ 

PUSHL SP 


PUSHL  VALUE_DESC 
CALL #2 DBGSNCOPY_DESC 
#26, SC 


VALUE _DE 


" (ARG_LIST pre) C13 
MOVL VALUE_DESC> -4(CALARG_PERMEM) C1 
BRB 21$ 
PUSHAB P.AAG 
BRB $ 
CMPL 1(BUF), P.AAH 
BNEG 24 
MOVL VALUE _DESC RO 
CMPB (RO); #134 
BNEQ 
MOVL 4(RO), (ARG_LIST_PTR)CIJ 
CMPB (RO), #122 
BNEQ & 
PUSHR #*M<RO,SP> 
CALLS #2, DBGSNCOPY_DESC 
MOVL VALUE DESC, R 
MOVL  24(ROJ, (ARG _LIST_PTRCI} 
MOVL Rg ~4(CALARG_PERMEM) CI 
BRB 32§ 
PUSHAB P.AAI 
BRB sis 
CMPL (BUF), P.AAJ 
BNE 
MOVL ALUE DESC RO 
CMPB (RO)> #122 
BNEQ $ 
MOVL 4(RO), (ARG_LIST_PTR)CIJ 
CMPB (RO), #1 
BEQL 4 
CMPB (RO), #34 
BNEQ $ 
CMP (RO), #32 
BRB $ 


Page 10) 


(3) 


} 
0358. 


0351 
0363. 


366 | 
aH 


1) 


0378 | 


vO%=000 


3; Routine Size: 


15 16 ry it 

08 14 ti 8 

04 11 

04 14 AO et 

4 18 

00028073 F OD 

000000006 00 } ‘9 

00000000' . +4 

00028362 F DO 

000000006 99 3 fe 

5 08 A? 

FE97 31 

1A 0D 

000000006 00 9 « 

56 0 0 

66 000000006 00 0065 8F 28 
000000006 00 96 00 0 
000000006 00 000000006 00 9€£ 8 

000000006 00 05C00000 8F 00 
0 6E 00 2c 0 
000000006 00 0 
OF 58 £9 0 
48 A6 01 05 EF 0 
1 05 50 FO 0 
000000006 00 59 700 
000000006 00 58 DO 0 
000000006 98 00000000" a 7 6 
0000000060040 0000000060040 90 0 
FO 50 F5 0 
000000006 00 94 0 
00000000" EF 01 900 
000000006 00 94 0 
50 01 0 


681 bytes, Routine Base: DBGSCODE + 0000 


13-se 
4-Se 


ae 


FPOOODO DONNOOUIMLS SWWNIN 3 ] ] “DOO NHN HMMMMoOOO 
COUI™mMoos MMRLOPS NLS MOOV Mh NVPIM VI MONO Y OLTIMOCO 


™~™ 
o 
wn 


33$: 


34$: 


Ww 
“ww 
bad 


pr}980 43548, 


3 Ax-11 BL biges 32 V4.0-74 
DEBUG. SRC IJDBGCALL .832; 


3(R0), #21 
| RO), #8 
1 
2 
i 
1 
3, 

(NO 
$ 
We 


RO), #4 
3955 
#1, DBGSGET MEMORY 


LIB$SIGNAL 
AK 
64706 


LIBSSIGNA 
OUN_NODE), + NOUN.NODE 


4 
24 
( 
$ 
( 
$ 
( 
$ 
#16 
32§ 
P.A 
rd 
8 
6b 


iT  OUNLED _EXC= 11], - 
DBGS$GB_UNHANDLED~EXCLI 


I, 

DBG$GB_UNHANDLED_EXC 

#1, DBGSGB CALL NORMAL _RET 
baGsGB. TAKE_C 


Pete Se Ge Se Se Ge Se Ge Be Ge Se Se Se Be Se Ge Se Se Ge Se Se Se Be Se Se Se Se Se Se Se Se Se Fe Se Se Ge Be Se 


DBGCA 
v04=0 

; 370 500 
: an 8 
; 308 
: 374 0504 
: 375 0505 
: 376 0506 
: 377 050 

: 378 0508 
: 379 0509 
: 380 0510 
. 
: 389 0518 
: 384 0514 
; 385 0515 
: 386 0516 
: 387 0517 
; 388 0518 
; 389 0519 
: 390 0520 
; 391 0521 
; 39 0522 
: 39 0523 
; 394 0524 
: 395 0525 
: 39% 0526 
: 397 0527 
: 398 0528 
: 399 0529 
: 400 0530 
> 401 0531 
> 402 0532 
: 403 053 

> 404 0534 
> 405 0535 
: 406 0536 
: 407 0537 
: 408 0538 
> 409 0539 
; 410 8229 
> 411 054 

: 412 0542 
; 413 054 

5 414 0944 
> 415 545 
> 416 0546 
> 417 0547 
> 418 0548 
> 419 0549 
i 420 0550 
: 433 33) 
: 458 334 
: 426 554 
> 425 555 
> 426 556 


: 


PIPIPINPINININGPOPOPYINDNYNIPYNYIPINSPINININPININPININPININININID) 8 9 9 9 Ot 


STSSK_SEVERE (4) - Failure. Tree not constructed. 


Message 
vector constructed. 


1B-sepe19 4 23:55:45 AX-11 Bliss-32 V4.0-742 
14-Sep-1984 ; 7:16:40 DEBUG. SRC RCIDBGCALL .B32:1 
GLOBAL ROUTINE DBGSNPARSE_CALL(INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 

i FUNCTION ; 

' Parse netverk for the CALL command. The parsing method used is 

: that of ATN's. This network constructs a command execution tree to 
be executed by DBGSNEXE CUTE CALL. 

: CALL sapetn tem ot. ZADDR addr-exp, ZREF lang-exp, %VAL Lang-exp, 
ESCR lang-exp, ...) 

i INPUTS 

; INPUT_DESC - A longword containing the address of a standard 
string descriptor which reflects the input string. 
; VERB_NODE - A longword containing the address of the verb 

node of the command execution tree. (CALL) 

: MESSAGE _VECT - The address of a longword to contain the address 

of a message argument vector. 

i OUTPUTS 

: STSSK_SUCCESS (1) - Success. Input parsed and execution tree 
constructed. 

' 

‘ 

{ 


BEGIN 


MAP 
INPUT DESC: REF BLOCKC,BYTE), 


!' Pointer to Input Descriptor 
VERB_NODE: REF DBGSVERB NODE; 


i Pointer to Command Verb Node 


BIND 
DBGS$CS_AST = UPLIT BYTE (ZASCIC AST"), 
DBG$CS~NOAST = UPLIT BYTE (XASCIC *NOAST* ow 
BG GSCS_COMMA = UPLIT BYTE(1, DBG$K_COMMA) 
DBG$CS-CR = UPLIT BYTE(1. DBGSK~CAR_RETURN) , 
DBGSCS-LEFT_PAREN = UPLIT BYTE(1. DBGSK~LEFT PARENTHESIS) 
DBG$CS-RGHT-PAREN = UPLIT BYTE(1, DBGS$K-RIGHT_PARENTHESIS), 
DBGS$CS~SLASA = UPLIT BYTE(1. '/");7 


LOCAL 
AST ERG NODE: REF DBGSADVERB =NODE rece ion ER to Rays Adverb Node 


for 
BUF? REF VECTORC,BYTE), ' AStic s ng 
NOUN. NODE: REF DBGSNOUN_NODE, Pointer to Command Noun Node 
SAVE" sNPUT_DESC: DBGS$STG_DESC, Save the Input Descriptor 


i 
Pointer to next noun node 
Os; i Returned status 


Check for /AST or /NOAST, which controls whether we will re-enable 
ASTs while the user program that is CALLed is running. 

If we see 4 a then we set AST_FLAG to TRUE, if we 

see /NOAST then we set AST_FLAG to FALSE. 

AST_FLAG a initially TRUE? meaning that the default is /AST. 


DBGCA S58 “Sep-1984 23:55:45 AX=11 Bliss-32 V4.0-742 
vOL=000 14- ~Sep-1984 f 716:40 DEBUG. § RCJDBGCALL.B32;1 


: 427 0557 ! This information is put in the VERB_COMPOSITE field and looked 
; : 8 : 8 ! at in DBGSNEXECUTE_CALL. 

; 430 560 Ast FLAG = TRUE; 

H : 1 B20) waite DEGSNMAT ELC. INPUT_DESC, DBGSCS_SLASH, 1) DO 

; 4 g bee8 SELECTONE TRUE OF 

: 434 0564 T 

>; 4355 0565 DBGSNMATCH(. INPUT DESC, DBGSCS_AST, 1)]: 

:; 436 B208 AST_FL TRU 

s 4637 056 LDBGSNMATCHC. INPUT besc, DBGSCS_NOAST, 1)]: 

; 438 0568 L FALSE; 

; 439 0569 COTHERWTS 

3 ree B29 S. S1GNAL (DBGS_ CMDSYNERR, 1, DBGSNNEXT_WORD(.INPUT_DESC)); 
3; 44 bare END; 

; $63 0373 VERB_NODECDBG$B_VERB_COMPOSITE] = .AST_FLAG; 

3 eH p273 § Signal an error if no parameters are present at all. 

H ret bere : IF DBGSNMATCH(.INPUT_DESC, DBGSCS_CR, 1) THEN SIGNAL (DBG$_NEEDMORE) ; 
3; 449 0579 

: +39 8280 § Pick up the routine address to call. 

; 452 b20¢ 2 ADVERB_NODE = DBGSGET aged 5 pg pavers -NODE_SIZE); 

: 453 058 § VERS NODE CDBGSL_VERB ADVE PTR) VER Ne 

: 454 0584 G$GL_CALL_CONTEXT atts GSRUNFRAME{DBGSL 0 R RI) 

: 455 0585 2 erat US"= bBOSNPARSE ADDRESS(. INPUT “Bove RNOBECDBGSL _ADVERB_VALUE], 
: 456 0586 2 DBGS$K DEFAULT, TOKENSK~ TERA. 

; 457 0587 2 SAVE_CALL_CONTEXT™ = DBGSGL _CALL_ CONTEXT? 

3; 458 0588 $ 

; 4659 0589 

; re Bane § } Initialize the argument count to zero. 

; 462 O08 2 ADVERB_NODECDBGS$B_ADVERB_LITERAL] = 0; 

3; 463 0593 2 

3; 464 0594 § 

; 465 0595 ! Check for the returned status. If STSSK_WARNING is returned, then the 
; 266 B298 ; CALL command must have arguments. 

; 668 0598 if -STATUS NEQ STSS$K_SUCCESS 

: 469 0599 THEN 

: 470 3609 BEGIN 

3: 6471 01 

3 $76 060 

; rhb 5484 Check for the valid syntax (‘(' before the arguments). 

3 475 0605 IF DBGSNMATCH(.INPUT_DESC, DBGSCS_LEFT_PAREN, 1) 

: 476 BONS THEN 

: 477 607 4 BEGI 

: 478 608 4 LINK = ven NODECDBG$L_VERB_OBJECT_PTRI; 

: 479 609 4 WHILE TRUE BO 

; 480 610 EGIN 

; 481 611 LOCAL 

; 482 ael¢ COUNT; 

; 683 061 


2 
| DBGCA 13- ~g00n 1386 $3:32 '3 AX-11 OL igsete be C4 | 


v04-0 14-Sep-1984 DEBUG. SRCJDBGCALL .B32; 
> 684 614 ADVERB pNODECDBGs ADVERB_LITERAL] = 

: 685 Oet3 BVERE santa t: LAOVERB_LITERAL] + 1; 

; 486 616 CHSMOVE ( ; Shiai ae DESC? SAVE_INPUT DESC): 

; 487 0617 BUF = .SAVE_INPUT “DESCEDSCSA-POINTERJ; 

: 489 619 5 OntLE -autC03 EQL %C' * DO 

: 490 §e 0 6 BE 

: 491 0621 6 BUF = .BUF + 1; 

: 49 06 é COUNT = .COUNT + 1; 

: 494 0624 SAVE. =inbut ePESCCOSC Su LENGTH 

; 495 $6 5 2 ogi} bes SCLOSCSW LENGTH - COUNT; 

3 re Be $ : SAVE. * ABUT ay DSCSA_POINTER) = F; 

: 498 0628 § NOUN NODE = DBGSGET _TEMPMEM (DBGS$K_NOUN_NODE_SIZE); 
; 499 0629 LIN aoe ODE; 

: 500 0630 LINK . “NOUN. NODE CDBGSL_NOUN_LINKI; 

; 501 0631 IF N eye prRiusc.l INPUT DESC 

3 206 ste 5 = UN, NODECOBGS$L_NOUN UVRLUESS, «MESSAGE _VECT) 
: 50 0633 5 N 

: 504 0634 5 RETURN STS$k SEVERE; 

; 505 0635 5 BUF = .NOUN_N DELDBGSL _NOUN -VALUE2]; 

: 506 0636 5 SELECTONE WAU 8 

: 507 0637 5 ser 

: 508 0638 § CHSEQL(S, BUFLI], 5, UPLIT BYTE('ZADDR"))): 

; 509 0639 6 GIN 

: 510 0640 6 INPUT ~PESCCDS CSU LENGTH) 

; 511 0641 6 ERIN Put DESCLDSCSu_ LENGTH) - 5; 

3 312 0642 6 INPUT _DESC BSt3h POINTER) 

: 51 0643 6 » SAVE INPUT DESC DSCSA_POINTER] + 5; 
3. 516 0644 6 STATUS = DBGENPAR SE_ADDRESS(- INPUT_DESC, 

: 515 0645 6 OUN_NODECDBG$L_NOON_ VALUE], 
: 516 0646 6 DBCS $k D DEFAULT, 

: 517 0647 6 TOKENSK_TERM_COMPAREN) ; 

: 518 0648 5 END; 

: 519 0649 § 

; 220 9650 3 CCHSEQL (6, BUFCL1], 6, UPLIT BYTE('ZDESCR"))): 
; 322 065¢ 6 INPUT _DESCCDSC$W_LENGTH) 

; 52 0653 6 AV tose INPUT pdesctd C$W_LENGTH] - 6; 

: 524 0654 6 INPUT DESC BSc3AP OINT 

: 525 0655 6 AVE_INPUT_DESC DSCSA POINTER) + 6; 
: 526 0656 6 STATUS = DBCSNPARSE EXPRESSION(. INPUT pest, 
: 327 0697 6 DBGSK_DEFAUL 

: 528 658 6 NOUN RODECDBG$L_NOUN_ VALUE), 
: 329 0659 6 TOKERSK_TERM_COMPAREN) ; 

; 5350 0660 5 END; 

s 5351 0661 5 

; 234 066¢ 3 CCHSEQL(4, BUFC1), 4, UPLIT BYTE(’ZREF*))2: 

: 534 0664 é INPUT -PESCLDSC Su LENGTH) 

: 535 665 6 state INPUT DESCED C$W_LENGTH) - 4; 
2. é INPUT best BSC$A_Pol 

: 53 0667 6 EA INPU put bese DSCSA POINTER) + 4; 
: 538 0668 6 STATUS” : atte NPARSE EXPRESSION(. INPUT_DESC, 
: 539 0669 6 pBeSe DEFAULT 

: 540 0670 6 NOUN KRODECDBGSL _NOUN_ VALUE), 


2 
DBGCA 18-55-1986 23:55:45  VAXe11 BLiss-32 
v04=0 1aneep- lobe W3it0.c0 Yokes. She Sse 


; 541 67 TOKENSK_TERM_COMPAREN) ; 

; tg of END; 

3 544 0674 CCHSEQL(4, BUFCIJ, 4, UPLIT BYTE('XVAL"))]: 

5 345 $02? 6 N 

; 246 676 f INPUT_DESCCDSC$W_LENGTH) 

; 54 0677 6 =". SAVE_INPUT DESCLOSCSW_LENGTH) - 4; 

; 548 0678 6 INPUT_DESCEBSCSA POINTER 

; 549 0679 6 =". SAVE {neut DESCEDSCSA_POINTER] + 4; 

: 550 0680 © STATUS = DBGSNPARSE EXPRESSION(.INPUT_DESC, 

; 22) be : 3 Seen Roser tbeée NOUN_ VALUE 

3 23 peas 6 TOKENSK_TERM_COMPARER) ; 

3; 554 0684 2 END; 

s 339 0685 

s $36 0686 5 COTHERWISE): 

s So7 0687 6 N 

; 558 0688 6 NOUN_NODECDBGSL_NOUN_VALUE2] = UPLIT BYTE(ZASCIC "ZADDR'); 
; 559 0689 6 CHSMOVE(8, SAVE-INPUT DESC, .INPUT_DESC); 

: 560 0690 6 STATUS = OBGSNPARSE ADDRESS. INPUT DESC, 

3 36) 0691 6 NOUN _NODECDBGSL_NOON_VALUEJ, 

3 266 0692 6 DBGSR_DEFAULT, 

; 56 0693 6 TOKENSK_TERM_COMPAREN) ; 

3 564 0694 5 END; 

; 565 0695 5 

; 566 0696 5 TES; 

3; 567 0697 5 

; 568 0698 § IF .STATUS EQL STSS$K_SUCCESS THEN SIGNAL (DBGS$_NEEDMORE); 
; 569 0699 5 IF DBGSNMATCH(.INPUT-DESC, DBGS$CS_RGHT_PAREN, 1) THEN EXITLOOP; 
3 TA! 0700 ; iF NOT DBGSNMATCH(.INPUT_DESC, DBGSCS_COMMA, 1) 

; 278 970 2 SIGNAL (DBG$_CMDSYNERR, 1, DBGSNNEXT_WORD(.INPUT_DESC)); 
3; 574 0704 4 END; ! End of WHILE parsing (...) Loop. 
s Sle 0705 4 

; 576 0706 4 END 

:-. ore 0707 4 

; 578 0708 ELSE 

3 203 0709 SIGNAL (DBG$_CMDSYNERR, 1, DBGSNNEXT_WORD(.INPUT_DESC)); 

; 581 0711 END; 

; 582 Orie 

; 583 O73 IF NOT DBGSNMATCH(.INPUT_DESC, DBGS$CS_CR, 1) 

3 38s O73 SIGNAL (DBGS$_CMDSYNERR, 1, DBGSNNEXT_WORD(.INPUT_DESC)); 

; 587 OF19 : RETURN STS$K_SUCCESS; 

; 588 0718 

; 589 0719 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
AAL: .ASCII po te Hb: 
: ASCII] <5>\NOAST\ 
-BYTE 1, 44 


sa 


52 44 


wu 
~srom 


000000006 99 


000000006 00 


000000006 9 


000000006 00 


000000006 00 
56 
01 Ab 


, at ee 
FOOwse 
eee 
Ne 


04 
00000000" 


00000000° 


00000000" 


00028EB8 


08 


MRNrRO 
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MOVIES 
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PUPVSVSVSI NF td td 


OFFC 00000 
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18 
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SOSSSSOSSOSOCSSO 
es7e2e 

=F ONOCOALMA 


090 -—- "99090 "09-9 Oo "9 OO 9 oO MO OOM"O OC 
oo-BoO 900809 FDO 790 On - TO "9 ODO" 


SOoooooQooooooooooooo: 
ooocoe: So 
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SVS FO 


ss 1 
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cocro7oc vvuvvvT ivUUU 
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2$: 


5 AX-i1 Bliss- 
0 DEBUG. SRC IDB 


_PAREN= P.AAP 
T“PAREN= P.AAQ 


DBGSCODE,NOWRT, SHR, 
DBGSNPARSE _CALL, Save R2,R3,R4,R5,R6,R7,R8,-; 
R9,R10,R11 : 


wie, § 
#1, AST_FLAG 
INPUT DESC, R? 


DBGSCS_SLASH 
#3, DBGSNMATCH 
RO. 4$ 


DBGSCS_AST 
#3, DBGSNMATCH 
RO. #1 


o 


#1, AST_FLAG 
1$ 


# 
spor 


#3, DBGSNMATCH 
RO, #1 


AST_FLAG 
R 
#1, DBGSNNEXT WORD 


#1 
#167608 
#3, LIBSSIGNAL 


VERB_NODE, R6 
AST_FLAG, 1(R6) 


Pete Se Ge Se Se Se Se Se Se 


2 
JESEEHORE TESESME WMULL SEM 


4-Sep-1 DEBUG ALL .B32; 
7 PUSHL #1 
00000000' 7 a DgGSCS_CR 
000000006 00 CALLS 43, geswmaren 
D BLBC R 
00028000 PUSHL 


#164048 
000000006 00 CALLS 4 » LIBSSIGNAL 


CALLS #1, DBGSGET_TEMPMEM 
R RB_RNODE 


Pow Ow 
wm 
wn 
F uv 
Cc 
“ 
= 
os” 


RO FS OWOVIMN OM ONS OUO PWS PU—-Do — 
=z 


oF OP 
DD 
£9 
DD 
FB 
DD 0009 
000000006 90 i } LL 
046 Ab DO 000A MOVL ADVERB NODE, 4(R6) 
00000000' EF 000000006 D0 0A MOVE DBG RURFRAME+8, DBGSGL_CALL_CONTEXT 
1 pp 008 PUSHL #1 
04 AA 9F 000B PUSHAB 4(ADVERB_NODE) 
57 DD 0008 PUSHL 7 
000000006 90 04 FB 0008 CALLS #4, DBGSNPARSE_ADDRESS 
8 0 po 00C MOVL TATU 
00000000" EF 00000000' EF 9E 000C MOVAB DBGSGL_CALL_CONTEXT, SAVE_CALL_CONTEXT 
oA 94 0000 CLRB (ADVERB_NODE) 
01 ; D1 900 CMPL = STATUS, “#1 
03 12 000d BNEQ 
0162 31 000D BRW 4$ 
01 OD 00000 6s: PUSHL #1 
00000000' EF 9F 000D PUSHAB DBGSCS_LEFT_PAREN 
7 DD O00ES PUSHL 
000000006 0 03 Fe 00E7 CALLS #3, DBGSNMATCH 
0 20 ‘ OOEE BLBS RO. 7$ 
0131 31 OO0F1 BRW 
56 08 CO 000F4 7S: ADDL2 #8, LINK 
6A 36 O00F7 8$: INCB. (ADVERB_NODE) 
6E 67 8 2 O00F9 MOVC3 #8, (R73, SAVE_INPUT_DESC 
59 04 AE DO O00FD MOVL § SAVE_INPUT_DESC+4, BOF 
50 04 99191 CLRL COUN 
20 69 91 0105 98: CMPB (BUF), #32 
06 12 001 BNEQ 108 
D6 00108 INCL BUF 
30 D6 O10A INCL COUNT 
F5 11 0010C¢ BRB 
6E 30 Az O10E 10$: | SUBW2 COUNT, SAVE_INPUT_DESC 
04 AE 59 00 00111 MOVL BUF, SAVE_INPUT_DESC+4 
04 DD 00115 PUSHL #4 
000000006 00 1 FB 00117 CALLS #1, DBGSGET_TEMPMEM 
58 D 11 OVL RO. NOUN 
6b p 1 MOVL  NOUN_NODE, (LINK) 
56 08 AB 9E 00124 MOVAB 8(RBJ, L 
0C AC DD 00128 PUSHL MESSAGE_VECT 
OC ag F 00128 PUSHAB 12(NOUN"NODE) 
57 DD 001 PUSHL R 
000000006 00 g3 FB 001 CALLS a3, DBGSNSAVE_STRING 
4 E8 001 BLBS RO, 11$ 
0 04 BO A MOVL #4, RO 
59 0c ag D0 136 11$: mOvL 12(NOUN_NODE), BUF 
00000000" EF 01 Ag 63 23 144 CMPC3 #5, 1(BUF), P.AAS 
14D BNEQ 12$ 


67 
A7 04 


EF 01 


67 
A7 04 


00000000' 
00000000" 


67 
A7 04 


000000006 


oc 
67 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


00 
4B 


00 
1A 
00 


00 


00 


euw=r 
vm 
ean 
v0o 
te 
—— 
oo 
@oo0o 


K—MOOOPrvran- ££ 


Oo 
— 
— 
wn 
wn 


fSoPyrrvocros—-™ 


So 
—_ 
0o- "STOTT 9TF Sr -9o $9 | PHO 9 N90 SOP OJ 


Om —-DO9 99 WIN Sh SIN S@ ONO FO OM OD 


n” 
m 


OWNS CWOMOVMOVYVINOVIOVIN OOWDOVIMOMOOOM “DODO O $$ FP OF “DOOUMOOUWWOOOUW 


ror 
Wr 


NINE 29 NIWOT SS MO WOOF NOON PFN WEN FLD OPY OMAHA LLM LSOMWIUO LS HS 
PM 


SUID VIN B OUVIM OAL S OMO OW MDF "9 O- "OO LNMOY 


SOOoOOCGCCOGOOOOGOOCOCOOOSCOOOSOOOOSOOOCOSOOSOOSOOCOSOOOOOOOOOOOOOOOOOOOOOOO 


SOOOCOSOCOOCOCOCOOCOOSOOOOOSOSOSSOOSSOSSSSCSSOSOSSSOSSCSCOOCSOSOOOOOOOOOOOOOO 


Pe ee ee ee ee a a ae a ae ae ee a ae a ae ae er a ae er er er er er er er er er ae ee ee ee er er er er er ee er ee er er Oe er ert 


NOWVNOOCS TOMS OOMNS OF "9S -VC Oo "NOCCN 
BO -DO CC WBl OO "TC oOwo "OWon—-owvIT7 


+ SAVE_INPUT_DE 
' SAVE _INPUT_DE 


3$ 

R4 

#6, 1(BUF), P.AAT 
148 


Re "1 

15$ 

#6, SAVE_INPUT_DESC, (R7) 

’ SAVE-INPUT~DESC+4, 4(R7) 
1(BUF), P.AAU 

1(BUF), P.AAV 

18$ 


#4, SAVE_INPUT_DESC, 
#4, SAVE_INPUT_DESC+4 


8 
NOUN_NODE 
# 


R7 
#4, DBGSNPARSE_EXPRESSION 


AAW, 12(NOUN_NODE) 
SAVE_INPUT-DESC, (R7) 


(R7) 
« 4(R7) 


P 
as 
wie 
#1 
R7, -(SP) 
#4, DBGSNPARSE_ADDRESS 
RO, STATUS 

TATUS, #1 
#164048 
#1, LIBSSIGNAL 
DBG$CS_RGHT_PAREN 
#3, DEGSNMATCH 
RO, 4% 
DBGSCS_COMMA 
#3, DBGSNMATCH 
RO, 238 
ie DBGSNNEXT_WORD 
#1 
#167608 
He LIBSSIGNAL 


R 
#1, DBGSNNEXT_WORD 


act 


; Routine Size: 


590 
591 


Name 
DBG$GLOBAL 
DBGSOWN 
DBGSPLIT 
DBGSCODE 


File 


S55 58U38 


Bust 


"$255$DUA28: (DEBUG.08)3DBGMSG.132;1 


2 
1hesépe19 
14-Sep-19 

0 OD 
00028EB8 ' BD 
000000006 00 ; 43 re 
00000000' EF SF Bees 
7 OO 47 
000000006 00 44 49 
“ sb ise 
00000000G 00 1 FB 00 
0 oD 8 C 
61 DD F 
00028EB8 F DD 0026 
000000006 00 03 4) 0266 
50 01 00 00260 25$: 
04 00270 
625 bytes, Routine Base: DBGSCODE + 02A9 
0720 1 
0721 0 END ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
5 NOVEC, WRT, RD ,NOEXE,NOSHR, 
4 NOVEC, WRT, RD ,NOEXE,NOSHR, 
$62 NOVEC,NOWRT, RD, EXE, ° 
1306 NOVEC,NOWRT, RD, EXE, ° 
Library Statistics 
owe neo a es Symbols ererewce 
Total Loaded Percent 
syst 10m -£32;1 18619 8 
DEBUG. FBP at 32;1 32 ° 
UG.0BJ ]DBGLIB.L32;1 154 7 4 
 EDEBUG. OBJ JDOSTRECRDS.L32;1 
418 9 9 
386 1 


4 23:55:46 AX-11 Bliss-32 V4.0-742 
4 #3330500 DEBUG. SRCIDBGCALL B32;1 
PUSHL R 
PUSHL # 
PUSHL #167608 
CALLS #3, LIBSSIGNAL 
PUSHL #1 
PUSHAB DBGSCS_CR 
PUSHL R 
CALLS #3, DBGSNMATCH 
LBS) =O, 258 
PUSHL 
CALLS #1, DBGSNNEXT_WORD 
PUSHL R 
PUSHL 
PUSHL #167608 
CALLS #3, LIBSSIGNAL 
MOVE = AT, RO 


~-EXTRN LIBSSIGNAL 


LCL, REL, CON, PIC,ALIGN(2) 
LCL, REL, CON, PIE-ALISN(S) 
LCL, REL, CON, PIC,ALIGN(O) 
LCL, REL, CON, PIC,ALIGN(O) 
Pages Processin 
netond ° 
1009 0:01.8 
300-4 
97 0:01.9 
1 0:00 
2 $080 ; 


Page 19 
. (4) 


0713. 


2 | 
14565-1984 23:55:45  VAX#11 Bliss-32 vé.0-74 Page 20 
12-0 e- 188s Hsiteice || YONedS Ohi sssteare oso. oe i} | 


; COMMAND QUALIFIERS 

g BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DBGCALL/OBJ=OBJ$:DBGCALL MSRC$:DBGCALL/UPDATE=(ENH$:DBGCALL) 
; Size: 1306 code + 354 data bytes 

3; Run Time: 724.7 

; Elapsed Time: 1:52.0 

3 Lines/CPU Min: 1754 
; Lexemes/CPU-Min: 14056 

3 penery Used: 234 pages 

; Compilation Complete 
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